home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / FunctionalSurf3.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  253 b   |  10 lines
  1. ReadArchive "defshaders.vs"
  2.  
  3. Declare glow = pow((1.0 - |N . I|), 0.175) + 0.5*scnoise(Po, 3)
  4.  
  5. Declare Glowing = Shader [ FunctionalSurface [
  6.   Color SpectrumOfColors([0, '0,0,1', 0, 1, '0,0,0', 1])[glow]
  7.   Ka 1 Kd 0
  8.   Kt(1.0, 1.0, '1,1,1') ]
  9. ]
  10.